home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
TK-BYE.ZIP
/
BYE.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1996-04-23
|
5KB
|
217 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Integer INTEGER001
Integer INTEGER002
Integer INTEGER003
String STRING001
String STRING002
String TSTRING003(15)
;------------------------------------------------------------------------------
Cls
PrintLn "@POFF@@X08-----------------------------------------------------------------------------"
PrintLn " @X05 Log Off Are You Sure You Realy Want To Do It?"
PrintLn "@X08-----------------------------------------------------------------------------"
AnsiPos 1, 19
PrintLn ".---------------------------------------------------------------------------."
PrintLn "| @X67 Hang Up @X06 Exit Back To BBS Add A Liner @X08|"
PrintLn "`---------------------------------------------------------------------------'"
PrintLn " @X03THe BLaCK aSSaSSiN '96"
FOpen 1, PPEPath() + "BYE.DAT", 0, 0
For INTEGER001 = 1 To 15
FGet 1, TSTRING003(INTEGER001)
AnsiPos 38 - Len(TSTRING003(INTEGER001)) / 2, INTEGER001 + 3
Print "@X0C[@X04" + TSTRING003(INTEGER001) + "@X0C]"
Next
FClose 1
INTEGER002 = 1
:LABEL001
AnsiPos 14, 20
If (INTEGER002 == 1) Print "@X67 Hang Up @X06 Exit Back To BBS Add A Liner "
If (INTEGER002 == 2) Print "@X06 Hang Up @X67 Exit Back To BBS @X06 Add A Liner "
If (INTEGER002 == 3) Print "@X06 Hang Up @X06 Exit Back To BBS @X67 Add A Liner @X08"
While (STRING001 <> Chr(13)) Do
AnsiPos 77, 22
STRING001 = ""
While (STRING001 == "") Do
STRING001 = Inkey()
EndWhile
AnsiPos 14, 20
If (STRING001 == "LEFT") Dec INTEGER002
If (STRING001 == "RIGHT") Inc INTEGER002
If (INTEGER002 == 0) INTEGER002 = 1
If (INTEGER002 == 4) INTEGER002 = 3
If (INTEGER002 == 1) Print "@X67 Hang Up @X06 Exit Back To BBS Add A Liner "
If (INTEGER002 == 2) Print "@X06 Hang Up @X67 Exit Back To BBS @X06 Add A Liner "
If (INTEGER002 == 3) Print "@X06 Hang Up @X06 Exit Back To BBS @X67 Add A Liner @X08"
EndWhile
If (INTEGER002 == 1) Then
Dir "G Y"
End
Endif
If (INTEGER002 == 2) Then
Cls
End
Endif
If (INTEGER002 == 3) Then
For INTEGER001 = 1 To 14
AnsiPos 1, INTEGER001 + 3
ClrEol
AnsiPos 38 - Len(TSTRING003(INTEGER001 + 1)) / 2, INTEGER001 + 3
Print "@X0C[@X04" + TSTRING003(INTEGER001 + 1) + "@X0C]"
Next
AnsiPos 1, 18
ClrEol
INTEGER003 = 0
STRING002 = ""
STRING001 = ""
AnsiPos 38, 18
Print "@X0C[]"
AnsiPos 39, 18
While (STRING001 <> Chr(13)) Do
STRING001 = ""
While (STRING001 == "") Do
STRING001 = Inkey()
If (STRING001 == "RIGHT") STRING001 = ""
If (STRING001 == "LEFT") STRING001 = ""
If (STRING001 == "UP") STRING001 = ""
If (STRING001 == "DOWN") STRING001 = ""
If (STRING001 == "@") STRING001 = ""
If (INTEGER003 == 73) If (STRING001 <> Chr(8)) If (STRING001 <> Chr(13)) STRING001 = ""
EndWhile
If ((STRING001 == Chr(8)) && (INTEGER003 <> 0)) Then
Dec INTEGER003
STRING002 = Left(STRING002, Len(STRING002) - 1)
Endif
If ((STRING001 <> Chr(13)) && (STRING001 <> Chr(8))) Then
STRING002 = STRING002 + STRING001
Inc INTEGER003
Endif
AnsiPos 37 - Len(STRING002) / 2, 18
Print " @X0C[@X04" + STRING002 + "@X0C] "
AnsiPos GetX() - 2, GetY()
EndWhile
AnsiPos 14, 20
Print " @X67 Save @X06 Abort "
INTEGER002 = 1
STRING001 = ""
While (STRING001 <> Chr(13)) Do
AnsiPos 77, 22
STRING001 = ""
While (STRING001 == "") Do
STRING001 = Inkey()
EndWhile
AnsiPos 30, 20
If (STRING001 == "LEFT") INTEGER002 = 1
If (STRING001 == "RIGHT") INTEGER002 = 2
If (INTEGER002 == 1) Print "@X67 Save @X06 Abort "
If (INTEGER002 == 2) Print "@X06 Save @X67 Abort @X06"
EndWhile
If (INTEGER002 == 1) Then
For INTEGER001 = 1 To 14
TSTRING003(INTEGER001) = TSTRING003(INTEGER001 + 1)
Next
TSTRING003(15) = STRING002
Log "Toxic Krystal Log Off V1.0 Liner Added!", 0
Log Mixed(U_Name()) + " Wrote: " + STRING002, 0
FCreate 1, PPEPath() + "BYE.DAT", 1, 3
For INTEGER001 = 1 To 15
FPutLn 1, TSTRING003(INTEGER001)
Next
FClose 1
Endif
If (INTEGER002 == 2) Then
For INTEGER001 = 1 To 15
AnsiPos 1, INTEGER001 + 3
ClrEol
AnsiPos 38 - Len(TSTRING003(INTEGER001)) / 2, INTEGER001 + 3
Print "@X0C[@X04" + TSTRING003(INTEGER001) + "@X0C]"
Next
Endif
STRING001 = ""
Endif
Goto LABEL001
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 2 End
; 2 Cls
; 3 ClrEol
; 30 Goto
; 37 Let
; 14 Print
; 7 PrintLn
; 40 If
; 1 FCreate
; 1 FOpen
; 2 FClose
; 1 FGet
; 1 FPutLn
; 2 Log
; 2 Inc
; 2 Dec
; 1 Dir
; 17 AnsiPos
;
;
; ■ Functions used :
;
; 4 /
; 26 +
; 6 -
; 29 ==
; 8 <>
; 5 <
; 5 <=
; 10 >=
; 18 !
; 12 &&
; 5 ||
; 5 Len(
; 1 Left()
; 8 Chr()
; 1 U_Name()
; 3 Inkey()
; 2 PPEPath()
; 1 GetX()
; 1 GetY()
; 1 Mixed()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 5 For/Next
; 6 While/EndWhile
; 7 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------